use Flap qw/-m -s -w/;

sub {
    my($dtv, $sr, $p) = @_;
    $dtv->{pl} = $p->compile($sr) || return;
    $dtv->{local}{$1} = $p->compile($sr) || return while $$sr =~ s/^\s*([a-z_]\w*)\s*=\s*//;
    1;
};
